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1. ABSTRACT 

The JMP Y - Interrupt Teit determines if the PDP-15 will complete a JMP Y 
(where Y is some random value) instruction before it goes into program interrupt. 
This is done by setting a I/O flag and then transferring control to an ION/JMP Y 
instruction group (located at a random place in memory). The computer 
should complete the JMP Y instruction before the computer goes into 
program interrupt. If no error occurs, the ION/JMP Y instruction group 
is moved to other random memory locations and the test is repeated. 
Errors are indicated to the operator via the Teletype or error halts. 

2. REQUIREMENTS 

2.1 Equipment 

Standard PDP-15 computer. 

2.2 Storage 

The program uses all of 4K memory for the program or as a test area. The 
program occupies memory from location 07400 to 07746 and*«sts all 
locations below 07400. 

2.3 Preliminary Programs 
Basic Instruction Teats 

3. LOADING PROCEDURE 

a. Put HRI tape of program in reader (high speed if available). 

b. Set ADDRESS SWITCHES to 07400; the BANK MODE switch on a 1 . 

c. Depress and release READ-IN key. 

4. STARTING PROCEDURE 

4.1 Control Switch Settings 

The following is a table of accumulator switch settings and their action 
on the program: 

ACSwitch Set As Action 



1 Halt on error 

Don't halt on error 

1 1 Don't print errors 
Print errors 



AC Switch Set As Action 

2 1 Ring bell on error 

Ring bell after N passes 

3 1 Loop on current Y 

Don't loop on current Y 

4 1 Loop on current location 

Don't loop on current location 

N is an arbitrary number (initially 100J which is controlled by the LAW-N 
instruction in location 07400 and may be changed at the operator's discretion. 

4 . 2 Starting Address 

The starting address of the program is 07400. 

4.3 Program and/or Operator Action 

a. ADDRESS SWITCHES to 07400. 

b. Set ACCUMULATOR SWITCHES to desired positions (see 4. 1). 
Normal setting is 500000 ~. } 

c. Depress I/O RESET 

d . Depress START 

5. OPERATING PROCEDURE 

5.1 Operational Switch Settings (see 4.1) 

5.2 Subroutine Abstracts 
None 

5.3 Program and/or Opertor Action 

To put the program in the scope mode, the ACCUMULATOR SWITCH 
REGISTER should be set to 260000(don't halt, don't print, bell after N 
passes, loop on current Y, loop on current locations) . 

6. ERRORS 

Unless AC switch 1 is a 1, errors will be printed on the teletype. 



6.1 Error Halts and Description 

There is one error halt inside the program at location 07546 . Any program 
diagnosed errors will cause a halt at this location if AC switch is a 1 . 
The program stores HALT in all locations of the test area memory. If the 
computer does not go into program interrupt immediately after executing 
the JMP Y, the computer will halt at location Y. 

6.2 Error Recovery 

6.2.1 Program Diagnosed Error 

If AC switch is a 1, the computer will halt on a program diagnosed 
error. To recover from this type of error, reset AC switches to 4 
as necessary (see Section 4.1) and then depress CONTINUE. 

6.2.2 Interrupt Failures 

Interrupt failures will cause a halt at location Y. To recover, reset 
AC switches to 4 as necessary (see Section 4. 1) and then start the 
computer at location 07400 (BEGIN) after depressing I/O RESET. 

6.2.3 Test for ION, JMP Y, and Y 

To test particular memory locations for the ION, JMP Y and/or Y, 
store the address of the ION in location 07733 (POINT1), that address + 1 
In location 07734 (POINT2), the address Y in location 07735 (POINT3). 
Then set AC switches 3 and 4 to 1, depress I/O RESET, and start the 
computer at location 07400 (BEGIN). All addresses must be less than 
07400 and not 00001 . 



6.3 Error Switch Hierorchy 



ERROR ENTRY 



|— — C ON ERROR J 

(SWITCH 2) 

**• 




" 


| 


RINC SELL ] 










f RETURN TO 
' MAIN PROGRAM 

CHECK FOR REPEAT 
i OF ERROR 

V CONDITIONS. 



6.4 Error Typeout Exomple 



ION -JMP Y 

JMP AT "Y" C(0) 

001234 007654 001235 



7. 
7.1 



The above example shows that a JMP 7654 instruction was stored in 
location 1234 (it is implied that the ION is in 1233). The 1235 
stored in location 00000 indicates the JMP was not completed before 
the computer went into program interrupt. 

RESTRICTIONS 

Starting Restrictions 

(None) 



7.2 Operating Restrictions 
(None) 

8. MISCELLANEOUS 
8.1 Execution Time 

Approximately 96 ms per ION/JMP Y instruction group. 

9. PROGRAM DESCRIPTION 

a. The first function that is performed is that of initialization. A 
register to count loops and a location to assure typeout of the error 
message header are initialized, and the bell on the Teletype is run 
to raise the teleprinter flag to assure a flag for program interrupt. 

b. Then a check is made to see if the locations of the ION and JMP Y 
instructions should be changed (switch 4). If they are not changed, 
the program proceeds to c. If they are, a number is obtained from 
a random number generator, made into an address, and checked 
that it is below the program, not equal to Y, not equal to 00000 

or 000001, and stored in POINT1 and incremented and stored in 
POINT2. 

c. Then a check is made to see if the number Y should be changed 
(switch 3). If It is not changed, the program proceeds to d. 

If it is, a number is obtained from a different random number 
generator than was used in b., made into an address, checked to 
see that it was below the program, not equal to location of ION 
or JMP Y instructions, not equal to 00001, and stored in POINT3. 

d. Then HALT is stored in all memory locations in the test area of 
memory. The ION instruction is stored, as well as the JMP Y 
instruction after it has been formed from Y and JMP. The AC 

and Link are then cleared and control is transferred to the ION/JMP Y 
instruction group. 

e. Upon return from the program interrupt, the contents of location 00000 
are checked to make sure the proper number was stored. If not, the 
error subroutine is called. 

f . A check is then made to see if the scope mode (AC switches 3 and 4 
a 1) has been requested and if so, control is immediately transferred 
back to the instruction group. 

g. If the instruction group is not being scoped, a check is made on 
ringing the bell (switch 2), after which control goes back to b. 

10. LISTINGS 



PAGE 



JMP-Y 



IONJMP 



TITLE IONJMP 







/jmp Y-INTERRUPT TFST 








.FULL 




07400 




.LOC 7400 




07400 


777700 


BEGIN LAW 


17700 




07401 


047717 


DAC 


COUNT 


/SET UP TO COUNT LOOPS 


0740? 


760207 


LAW 


207 




07403 


107560 


JMS 


TYPE 


/RING BELL TO SET I/O FLAG 


07404 


207746 


LAC 


222 + 1 




07405 


047525 


DAC 


ERR0R1+13 


/INITIALIZE ERROR TYPEOUT ROUTINE 


07406 


750004 


HERE1 LAS 






07407 


507725 


AND 


MASK2 




07410 


740200 


SZA 




/VARY CURRENT LOCATION 


07411 


607437 


JMP 


HERE2 


/NO 


07*12 


1076*0 


JMS 


RANDOM 


/yes, generate Random address 


07413 


507723 


AND 


MASK 




07414 


047733 


DAC 


POINT1 


/STORE IN "ION" POINTER 


07415 


047734 


DAC 


P0INT2 


/STORE IN "JMP Y" POINTER 


07416 


447734 


IS? 


P0INT2 


/AND INCREMENT 


07417 


741208 


SNA 




/IS "ION"=0? 


07420 


607412 


JMP 


HEREl+4 


/YES 


07421 


547730 


SAD 


ONE 


/HOW ABOUT 1? 


07422 


607412 


JMP 


HEREl+4 


/YES 


07423 


347743 


TAO 


UPLIM 


/IS THE "ION" POINTER 


07424 


740100 


SHA 




/INSIDE THIS PROGRAM? 


07425 


607412 


JMP 


HEREl+4 


/YES, GENERATE ANOTHER 


07426 


207734 


LAC 


P0INT2 


/NO, NOW HOW ABOUT 


07427 


347743 


no 


UPLIM 


/THE "JMP Y" POINTER? 


07430 


740100 


SMA 




/IS IT OK? 


07431 


607412 


JMp 


HErEI+4 


/No. TRY AGAIN 


07432 


207735 


LAC 


P0INT3 


/OK SO FAR. NOW IS "Y" POINTER 


07433 


547733 


SAD 


POINT! 


/EQUAL TO "ION" POINTER 


07434 


607412 


JMP 


HEREl+4 


/YES 


07435 


547734 


Sao 


P0INT2 


/NO. EQUaL TO "JMP Y" POINTER 


07436 


607412 


Jmp 


HEREl+4 


/YES 


07437 


750004 


HERE2 LAS 






07440 


507724 


AND 


MASKl 




07441 


740200 


S2A 




/VARY "Y" POINTER? 


07442 


607460 


JMP 


HERE3 


/NO 


07^43 


1076?1 


JMS 


RANDUM 


/YES, GENERATE RANDOM ADDRESS 


07444 


507723 


AND 


MASK 




07445 


047735 


DAC 


P0INT3 


/AnO STORE IN P0INT3 


07446 


547730 


SAD 


ONE 


/IS "Y"=l? 


07447 


607443 


JMP 


HERE2+4 


/YES 


07450 


347743 


TAD 


UPLIM 


/IS "Y" INSIDE THE PROGRAM? 


07451 


740100 


SMA 






07452 


607443 


JMP 


HERE2+4 


/YES 


07453 


207735 


LAC 


P0INT3 


/NO, CHECK IT AGAINST 


07454 


547733 


SAD 


POINT1 


/POINTl 


07455 


607443 


JMP 


HERE2+4 


/AND 


07456 


547734 


SAD 


P0INT2 


/P0INT2 


07457 


607443 


JMP 


HERE2+4 








•EJECT 





PAGE 



JMP-Y 



IONJmP 



07460 


107574 


07"6l 


2077?1 


07462 


067733 


07463 


207735 


07464 


247722 


07465 


067734 


07466 


754000 


07467 


627733 


07470 


207735 


07471 


200000 


07472 


507723 


07473 


547735 


07474 


741000 


07475 


107512 


07476 


750004 


07477 


742010 


07500 


742010 


07501 


740400 


07502 


607505 


07 5 3 


755100 


07504 


627733 


07505 


750004 


07506 


742010 


07507 


740100 


07510 


107550 


07511 


607406 



HERE3 



RETURN 



JMS HALT 
LAC IONCON 
DAO P0INT1 
LAC P0INT3 
XOR JMPCON 
OAC* POINT? 
CLA!CLL 
JMP« P0INT1 



P0INT3 


MASK 
P0INT3 

ERRORl 



LAC 

LAC 

AND 

SAO 

SKP 

JMS 

LAS 

RTL 

RTL 

SNL 

JMP .*3 

SPAICLAJCLL 

JMP* POINT1 

LAS 

RTL 

SMA 

JMS 

JMP 



BELL 

HERE1 



/STORE HuL" IN MEMORY 

/Then store the ion 
/via the "ion" pointer 

/GET "Y" 

/FORM JMP "Y" 

/STORE VIA "JMP Y" POINTER 

/CLEAR AC AND L 

/EXECUTE ION-JMP Y 

/GET "Y" 



/DOES C(0)="Y+1 H 

/YES 

/NO. ERROR 



/MOVE BITS 3+4 INTO LINK AND AC 

/LOOP ON CURRENT "Y"? 

/NO 

/yes, loop on current location? 
/y e s. return to ion-jmp y 
/no. see about ringing bell 

/ring bell? 

/YES 



.EJECT 



PAGE 



JMP-Y 



IONJMP 



/ERROR TYPEOUT SUBROUTINE 
/ 



07512 


000000 


07513 


750004 


07514 


742010 


07515 


740100 


07516 


607521 


07517 


760207 


07520 


107560 


07521 


750004 


07522 


740010 


07523 


741100 


07524 


607544 


07525 


207745 


07526 


107652 


07527 


207727 


07530 


047525 


07531 


207734 


07532 


107632 


07533 


760240 


07534 


107560 


07535 


207735 


07536 


107632 


07537 


760240 


07540 


107560 


07541 


200000 


07542 


107632 


07543 


107566 


07544 


750004 


07545 


741100 


07546 


740040 


07547 


627512 



ERRORl 





LAS 

RTL 

SMA 

JMP .+3 

LAW 207 

JMS TYPE 

LAS 

RAL 

SPA 

JMP .+20 

LAC 222 

JMS MPRINT 

LAC NEWINS 

OAC ERR0Ri + i3 

LAC P0INT2 

JMS PRINT 

LAW 240 

JMS TYPE 

LAC POINT3 

JMS PRINT 

LAW 240 

JMS TYPE 

LAC 

JMS PRINT 

JMS CRLF 

LAS 

SPA 

XX 

JMP* ERROR1 

.EJECT 



/RING BELL? 
/NO 



/PRINT ERRORS? 

/NO 

/PRINT HEADER 

/CHANGE SO THAT HEADER PRINTS ONLY ONCE 

/PRINT LOCATION OF JMP Y 

/l SPACE 

/PRINT "Y" 

/l SPACE 

/PRINT C(0) 
/CR-LF 

/HALT ON ERROR? 

/YES 

/EXIT 



PAGE 



JMP-Y 



IONJMP 



07550 


000000 


07551 


447717 


0755? 


627550 


07553 


407400 


07554 


047717 


07555 


760207 


07556 


107560 


07557 


627550 


07560 


000000 


07561 


507736 


0756? 


700406 


07563 


700401 


07564 


607563 


07565 


627560 


07566 


000000 


07567 


760215 


07570 


107560 


07571 


760212 


07572 


107560 


07573 


627566 



/USEFUL SUqROUTINES 

/ 

BELL 

IS? COUNT 
JMP« BELL 
XCT BEGIN 
DAC COUNT 
LAW 207 
JMS TYPE 
JMP* BELL 



/ 

TYPE 



/ 
CRLF 



ANO RUBOUT 

TLS 

TSF 

JMP .-1 
JMP» TYPE 



LAW 215 

JMS TYPE 

LAW 212 

JMS TYPE 

JMP» CRLF 

•EJECT 



PAGE 



JMP-Y 



IONJMP 



07574 


000000 


07575 


147731 


07576 


?077?0 


07577 


067731 


07600 


447731 


07601 


207731 


07602 


547744 


07603 


741000 


07604 


607576 


07605 


207716 


07606 


040001 


07607 


627574 



07610 


000000 


07611 


207617 


07612 


744010 


07613 


741400 


07614 


347620 


07615 


047617 


07616 


627610 


07617 


000137 


07620 


000003 


07621 


000000 


07622 


207630 


07623 


744010 


07624 


741400 


07625 


347631 


07626 


047630 


07*27 


627621 


07630 


000065 


07631 


000003 



/SUBROUTINE TO STORE HALTS 


IN MEMORY 


/ 

HALT 




D2M PNTR 
LAC HLTCON 
OAC* PNTR 
ISZ PNTR 
LAC PNTR 
SAO UPLIMI 
SKP 

JMP HALT+2 
LAC CONl 
DAC 1 
JMP» halt 




/ 






/ 






/random 


NUMBER GENERATORS 




/ 






random 




LAC RANDl 

RALICLL 

SEL 

TAO RANOl+1 

DAC RANOl 

JMP* RANDOM 




/ 






RANDl 


137 
3 




/ 






RANDUM 




LAC RAND2 

RALICLL 

S2L 

TAO RAN02+1 

DAC RAND2 

JMP« RANDUM 




/ 






RAND2 


65 
3 

•EJECT 





PAGE 



JMP-Y 



IONJHP 







/OCTAL 

/ 
PRINT 


PRINT SUBROUTINE 


07632 


000000 


f 


07633 


047741 




OAC TEMP 


07634 


777772 




LAW 1777? 


07635 


047740 




DAT TALLY 


07636 


207741 




LAC TEMP 


07637 


744010 




RALICLL 


07640 


740010 




RAL 


07641 


742010 




RTL 


07642 


047741 




OAC TEMP 


07643 


507737 




AND SEVEN 


07644 


347715 




TAD ASKII 


07645 


107560 




JMS TYPE 


07646 


207741 




LAC TEMP 


07647 


447740 




IS2 TALLY 


07650 


607640 




JMP .-10 


07651 


627632 




JMP» PRINT 



07652 


000000 


07653 


047732 


07654 


227732 


07655 


742020 


07656 


742020 


07657 


742020 


07660 


742020 


07661 


740020 


07662 


107560 


07663 


547736 


07664 


627652 


07665 


227732 


07666 


107560 


07667 


547736 


07670 


627652 


07671 


447732 


07672 


607654 


07673 


215212 


07674 


311317 


07675 


316255 


07676 


312315 


07677 


320240 


07700 


331215 


07701 


212312 


0770? 


315320 


07703 


240301 


07704 


324240 


S7705 


240240 


07706 


242331 


07707 


242240 


£7710 
■ 711 


240240 


303250 



/MESSAGE PRINT SUBROUTINE 

/ 

MPRINT 

DAC PNTRi 

LAC* PNTRi 

rtr; rtr; rtr; 



rtr; 



RAR 





JMS TYPE 






SAD RUBOUT 






JMP« MPRINT 






LAC» PNTRi 






JMS TYPE 






SAD RUBOUT 






JMP* MPRINT 






ISi PNTRi 




/ 

/ERROR 


JMP MPRJNT+2 




MESSAGE HEADER 




MESS1 


215212 


/CR.LF 




311317 


/I,0 




316255 


/N»- 




312315 


/J.M 




320240 


/P.SP 




331215 


/Y,CR 




212312 


/LF, J 




315320 


/M,P 




240301 


/SP.A 




324240 


/T-SP 




240240 


/SP.SP 




242331 


/" , Y 




242240 


/".SP 




240240 


/SP.SP 




3032S* 


/C, ( 



PAGE 



jmp-y 



IONJMP 



07712 


260251 


07713 


215212 


07714 


377000 



260251 


/0. ) 


215212 


/cr.lf 


377000 


/END 


.EJECT 





PAGE 



JMP-Y 



.ONJMP 







/CONSTANTS AND V aR i APi 


07715 


000260 


/ 

ASK! I 


2 60 


07716 


607470 


COM1 


JMP RE T URN 


07717 


000000 


COUNT 





07"?20 


740040 


HLTCoN 


HLT 


07721 


700042 


IONCON 


ION 


07722 


600000 


JMPCON 


JMP 


07723 


017777 


MASK 


17777 


07724 


040000 


MASKl 


40000 


07725 


020000 


MASK2 


20000 


07726 


010000 


MASK3 


10000 


07727 


607531 


NEWINS 


JMP ERRORl+17 


07730 


000001 


ONE 


1 


07731 


000000 


PNTR 





07732 


000000 


PNTRl 





07733 


000002 


POINTl 


2 


07734 


000003 


POINT2 


3 


07735 


000004 


POINT3 


4 


07736 


000377 


RUBOUT 


377 


07737 


000007 


SEVEN 


7 


07740 


000000 


TALLY 





07741 


000000 


TEMP 





07742 


000002 


TWO 


2 


07743 


770400 


UPLIM 


-BEGIN 


07744 


007400 


UPLIMl 


BEGIN 


07745 


007673 


222 


MESSl 


07746 


207745 


/ 


LAC Z22 




000000 


.END 




SIZE' 


=07747 


NO ERROR LINES 



PAGE 9 JMP-Y IONJMP 

ASKII 07715 

BEGIN 07400 

BELL 07550 

CLOT 700004 

CLON 700044 

CLSF 700001 

CONl 07716 

COUNT 07717 

CRLF 07566 

EEM 707702 

ERRORl 07512 

HALT 07574 

HERE1 07406 

HERE2 07437 

HERE3 07460 

HLTCON 07720 

IONCON 07721 

JHPCON 07722 

KR9 700312 

KSF 700301 

LEM 707704 

MASK 07723 

MASK1 07724 

MASK2 07725 

MASK3 07726 

MESS1 07673 

MPRINT 07652 

NEWINS 07727 

ONE 07730 

PCF 700202 

PNTR 07731 

PNTR1 07732 

POINTl 07733 

P0INT2 07734 

P0INT3 07735 

PRINT 07632 

PSA 700204 

PSB 700244 

PSF 700201 

RANDOM 07610 

RANDUM 07621 

RANDl 07617 

RAN02 07630 

RCF 700102 

RETURN 07470 

RRB 700112 

RSA 700104 

RSB 700144 

RSF 700101 

RUBOUT 07736 

SEVEN 07737 

TALLY 07740 

TCF 700402 

TEMP 07741 

TLS 700406 



PAGE 



JMP-Y 



[ONJMP 



Tsr 


700401 


TWO 


07742 


TYPE 


07560 


UPLIM 


07743 


UPLIMl 


07744 


111 


67745 


.EOT 


00000 



PAGE 11 J 


.EOT 


00000 


REGIN 


07400 


HERE1 


07406 


HERE2 


07437 


MERE3 


07460 


RETURN 


07470 


ERROR1 


07512 


BELL 


07550 


TYPE 


07560 


CRLF 


07566 


HALT 


07574 


RANDOM 


07610 


RAND1 


07617 


RANDUM 


07621 


RAND2 


07630 


PRINT 


07632 


HPRINT 


07652 


MESSl 


07673 


ASKII 


07715 


CON1 


07716 


COUNT 


07717 


HLTCON 


07720 


IONCON 


07721 


JMPCON 


07722 


MASK 


07723 


MASK1 


07724 


MASK2 


07725 


MASK3 


07726 


NEWINS 


07727 


ONE 


07730 


PNTR 


07731 


PNTR1 


07732 


PO!NTl 


07733 


POINT2 


07734 


POINTS 


07735 


RUBOUT 


07736 


SEVEN 


07737 


TALLY 


07740 


TEMP 


07741 


TWO 


07742 


UPLIM 


07743 


UPLIMl 


07744 


2ZZ 


07745 


CLSF 


700001 


CLOF 


700004 


CLON 


700044 


RSF 


700101 


RCF 


700102 


RSA 


700104 


RRB 


700112 


RSR 


700144 


PSF 


700201 


PCF 


700202 


PSA 


700204 


PSB 


700244 



JMP-Y 



IONJMP 



PAGE 12 



JMP-Y 



IONJMP 



KSF 

KRR 
TSF 
TOT 
TLS 
EEM 
LEM 



700301 
700312 
700401 
700402 
700406 
707702 
707704 



